﻿Imports System.Data
Imports MySql.Data.MySqlClient
Public Class CManufacturers
    Dim connector As New MySqlConnection("server=127.0.0.1;database='commerce';user='root';password='';")
    Dim adapter As MySqlDataAdapter
    Dim mydataset As New DataSet
    Private Sub CManufacturers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        connector.Open()
        adapter = New MySqlDataAdapter("select * from manufacturers", connector)
        adapter.Fill(mydataset, "manufacturers")
        dgManufacturers.DataSource = mydataset.DefaultViewManager()
    End Sub
End Class